#module InitialConditions
#    use Sizes
#    implicit none

  # Initial conditions
  ic_tsfc <- rep(NA,jmt) # REAL ::  surface temperature/degC

#end module InitialConditions
